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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil, do not use ink) 

Program No. Date. 

Program Name; 



1. Does the abstract adequately describe what the program is and what Yes No. 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

Comment 



3. Is the Description clear, understandable, and adequate? Yes No. 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Ye s No, 
Commen t 

Are the Sense Switch options adequately described (if applicable)? Yes No 

Are the mnemonic labels identified or sufficiently understandable? Yes No" 

Commen t 

5. Does the source program compile satisfactorily (if applicable)? Yes No. 

Comment 



6, Does the object program run satisfactorily? Yes No, 

C ommen t 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No. 

Comment 



8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No. 

C omment 

9. Were all necessary parts of the program received? Yes No. 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 

Data Corporation 

7500 Old Xenia Pike Address 

Dayton, Ohio 45432 

User Group Code 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 
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Simple Correlation Coefficient 

Matrix 
William E. Miner 
North Texas State University 

May 10, 1962 

6.0 Statistical Program 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce' 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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Table of Contents 

II. Detailed Description of Program 

III. Input/output 

IV. Sample Problem 

V. Operating Instructions 

VI. Program Listing 



Program Manual 

I. Title: Simple Correlation Coef f icient-NT0005 

II. Description of Program 

A. Results 

The output of this routine is the simple correlation 
coefficient matrix on the typewriter and on punched 
card. It should be noted that the punched card 
output is ready as input to the Factor Analysis 
routine by the same author. 

B. Method of Computation 

The standard form for r is used, i.e., 

r . rfz y L y> - £ v^x, 



5 

III. Input / Output 

A. Input Format 

Card 1: Nl blank N2 

where Nl= the number of observed variables 

KT2= the number of observations 
Card 2: 01V1 blank 01V2 blank 01V3 ... 01V15 
where 01V1 indicates observation 1 variable 1. 
This data can overflow to subsequent cards if 
needed, then followed on the same card or on 
a new one with 02V1 02V2 02V3... 

B. Output Format 

Typewriter: The format is I J R-j-j 
WHERE the notation is obvious , 
Card: Rjj for cards 2 on. 
Nl N2 for card 1 



© * 



e 



Input 
\ 15 . 

1. 2. 3.57 4.12 

2. 4. 2.5 3.7 

3. 6. 2.59 8.30 

4. 8. 5.69 9.24 

5. 10. 2.0 3.1 

6. 12. 15. 27.5 

7. 1U. 23. 2.4 

8. 16. 45. 54. 

9. 18. 22. 2.2 

10. 20. 20. 20. 

11. 22. 33. 44. 

12. 21*. 1*5.5 1234. 

13. 26. 32. 23. 

14. 28. 1.0 2.0 

15. 30. 30. 30. 



IV. Sample Problem 



f 
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OUTPUT 
-TYPE i« j kir £ K 



.00000000 
1.0000005 
.59229011 
.26647283 
1.0000005 
.00000000 
.59228991 
.26647288 
.59229011 
.59228991 
.00000000 
.50432403 
.26647283 
.26647288 
.50432403 
.00000000 
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.00000000 
1.0000005 
.59229011 
.26647283 
1 .0000005 
.00000000 
.59228991 
.26647288 
.59229011 
.59228991 
.00000000 
.50432403 
.26647283 
.26647288 
.50432403 
.00000000 



V. Operating Instructions 

1) Set tabs and margin as for standard FORTRAN 

2) Ready card reader with program deck followed 
by data cards o 

3) Ready punch with blank cards. 

%) Depress Reset and Beard and Punch Start 

when the "Load Data " message is typed depress 
start on the 1620. 
VI. Sense switch 1+ is the only one used 

SSi^ on the program punches the output as well 
as typing. 

SSt^ off the program types the output only. 



C SIMPLE CORRELATION COEFFICIENT rj 
C STANDARD APPROACH WITWALL DATA NEEDED ' 

C GENE MILNER 

C NORTH TXAS STATE UNIVERSITY 

DIMENSION SUM(15),SUM2(15),PROD(15,15),X(15),R(15,15) 
1 READ,N1,N2 
N3-N1-1 
Y2-N2 

DO 5 l-1;N1 
SUM(l)=0.' 
SUM2(I)=0. 
DO 5 J-I.N1- 

5 PROD(l,J)=0. 
DO 7 M=1,N2 
DO 6 l-1.N1 
READ,X(|) 

SUM(I)-SUM(I)+X(I) 

6 SUM2(I)=SUM2(I)+X(I)*X(I) 
DO 7 J=1,N3 

L=J+1 

DO 7 K=L,N1 

7 PROD(J,K)=PROD(J,K)+X(J)*X(K) 
DO 8 U1.N3 

L«*l + 1 

DO 8 J»L,N1 

XNUM=(Y2*PR0D( I ,J)-SUM( I )*SUM( J) ) 

DEN=(SQR((Y2*SUM2(I)-SUM(I)*SUM(I))*(Y2*SUM2(J)-SUM(J) 
R(I,J)=XNUM/DEN 

8 R(J, I )=R( I ,J) 
DO 9 l-1,N1 

9 R(l,l)»0. 

IF(SENSE SWITCH 4)11,12 

11 PUNCH, N1,N2 

12 DO 10 1=1, N1 
DO 10 J=1,N1 

IF ( SENSE SWITCH 4)13,10 

13 PUNCH, R( I , J) 

10 TYPE,I,J,R(I,J) 
PAUSE 
GO TO 1 
END 

C THE OUTPUT FROM THIS ROUTINE IS READY AS 

C INPUT TO THE FACTOR ANALYSIS ROUTINE BY THE SAME AUTHOR 
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LOAD SOURCE DECK 
THEN PUSH START 
Q7S00 C $042275 



e 



07500 
07500 
07500 
WOO 
07524 




SIMPLE CORRELATION MATRIX ROUTINE 

PROGRAM NO, 042275 

DIMENSION SUM(15),SUM2(15),PR0D(l5,15),X(15),R(t5,15) 

% NS^'ilS'!!? */ = Mo <rf obsesrU i/fin 



V 2 - N2 



1*789 I 

14779 0000000000 

14769 J 

14749 M 

14729 L 



00 5 I » 1.N1 
SUM(I) - 0.0 



SUM20) - 0.0 
DO 5 J ■ 1.N1 



5 PROO(I.J) - 0.0 
DO 7 M m 1 ,N2 



08268 
08280 



DO 6 I - 1,N1 

_ READ,X( I ) 

SUM(I) - SUM(I) + X(l) 
6 SUM 2 ( I ) ■ S U M 2 (I) + X (l) * X(l) 
DO 7 J - 1.N3 
L m J + 1 



4 4m ic 

14699 XNUM 
14669 DEN 

PROCESSING COMPLETE 



TO EXECUTE PROGRAM 
LOAD- OBJECT DECK, 
THEN PUSH START 



08604 
08616 



DO 7 K - L,N1 
7- PR0P(J,K) » PROD(J,K) + X (J) » X(K) 



08652 

-08664- 



DO 8 I - 1 ,N3 
1-1+1 



08868 
09204 



DO 8 J - L.N1 

XNUM - (Y2*PR00([ .J) - SUM(I) » SUH(J)) 



09500 
09516 



DEN»(SQR( ( Y2*SUMi ( I ) -SUM ( I j*SUM ( I ) ) * ( Y2*SUM2 ( J ) -SUM ( J ) *SUM ( J ) ) ) ) 
' * XNUM / DEN - 



8 Rx«,./ 
DO 9 I 



R(I.J) 

i,Ni 



09528 9 RO.O-0.0 

HJNCH.N1.N2 

DO 10 I - 1,N1 



09684 

09696- 



09708 PUNCH.R(I.J) 
09792 IO- TYPE, l t 3 . R( l,J ) 



PAUSE 
60 TO 1 



09992 



END 



END OF COMPILATION 
LO A D S UB ROUTINE DECK 
THEN PUSH START 



SW1 ON FOR SYMBOL TABLE 
PUSH ST A R T 



19859 — ABS 



19849 ABSF 
— 4tf$9 CWT 



19829 




N1 
N2 

14839 N3 
14829 0001 
14809 Y2 



19679 

lit 



